home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 9 / Amoszine 9 (Disk 3 of 3).adf / Mals_Source_Code.lha / HD_INSTALLER.amos / HD_INSTALLER.amosSourceCode
AMOS Source Code  |  1980-01-17  |  3KB  |  119 lines
  1. '***************************************** 
  2. '
  3. '       C O D E   N A M E   N A N O  
  4. '      ----------------------------- 
  5. '
  6. '    Hard drive intaller program V1.0
  7. '
  8. '        By Malcolm Lavery ï¿½1995 
  9. '
  10. '***************************************** 
  11. '
  12. Screen Open 0,320,256,2,Lowres
  13. Curs Off : Flash Off : Cls 0
  14. Palette $5,$FFF
  15. Ink 1,0
  16. '
  17. CENTER_TEXT["C O D E   N A M E   N A N O",166,20]
  18. CENTER_TEXT["GAME INSTALLER VERSION ONE!",166,30]
  19. CENTER_TEXT["---------------------------",166,40]
  20. '
  21. F$=Fsel$("SYS:","","SELECT A LOCATION FOR","THE CODE_NAME_NANO DRAW!")
  22. F$=Dir$
  23. '
  24. '*************************************************** 
  25. '           CHECK FOR & CREAT CNN DRAW 
  26. '*************************************************** 
  27. '
  28. If Exist(F$+"CODE_NAME_NANO")=0
  29.    CENTER_TEXT["MAKING CODE_NAME_NANO DRAW!",166,125]
  30.    Mkdir "CODE_NAME_NANO"
  31.    Wait 50
  32.    CENTER_TEXT["COPYING CODE_NAME_NANO DRAW ICON!",166,125]
  33.    Wait 50
  34.    _COPY_FILE["NANO:NANO_DATA/CODE_NAME_NANO.INFO",F$]
  35.    '
  36.    CENTER_TEXT["MAKING CODE_NAME_NANO DATA DRAW!",166,125]
  37.    Mkdir F$+"CODE_NAME_NANO/"+"NANO_DATA"
  38.    Wait 50
  39.    CENTER_TEXT["COPYING NANO_DATA DRAW ICON!",166,125]
  40.    Wait 50
  41.    _COPY_FILE["NANO:NANO_DATA/NANO_DATA.INFO",F$+"CODE_NAME_NANO/"]
  42.    '
  43.    CENTER_TEXT["COPYING CODE_NAME_NANO GAME!",166,125]
  44.    Wait 50
  45.    _COPY_FILE["NANO:NANO",F$+"CODE_NAME_NANO/"]
  46.    CENTER_TEXT["COPYING CODE_NAME_NANO PROGRAM ICON!",166,125]
  47.    Wait 50
  48.    _COPY_FILE["NANO:NANO.INFO",F$+"CODE_NAME_NANO/"]
  49.    '
  50.    CENTER_TEXT["COPYING CODE_NAME_NANO DATA",166,125]
  51.    Wait 50
  52.    _COPY_FILE["NANO:NANO_DATA all",F$+"CODE_NAME_NANO/NANO_DATA"]
  53.    '
  54. Else 
  55.    Bell 
  56.    CENTER_TEXT["CODE_NAME_NANO DRAW ALREADY EXISTS!!!",166,125]
  57.    Wait 200
  58.    '
  59. End If 
  60. '
  61. '*************************************************** 
  62. '      CHECK FOR & INSTALL CRM LIBRARY 
  63. '*************************************************** 
  64. '
  65. CENTER_TEXT["CHECKING FOR CRM.LIBRARY!",166,125]
  66. Wait 100
  67. If Exist("SYS:LIBS/CRM.LIBRARY")=0
  68.    CENTER_TEXT["CRM.LIBRARY NOT INSTALLED!",166,125]
  69.    Wait 150
  70.    CENTER_TEXT["INSTALLING CRM.LIBRARY!",166,125]
  71.    _COPY_FILE["NANO:LIBS/CRM.LIBRARY","SYS:LIBS"]
  72. Else 
  73.    CENTER_TEXT["CRM.LIBRARY ALREADY INSTALLED!",166,125]
  74.    Wait 150
  75. End If 
  76. '
  77. '*************************************************** 
  78. '      CHECK FOR & INSTALL TOP_SECRET.BIN  
  79. '*************************************************** 
  80. '
  81. CENTER_TEXT["CHECKING FOR TOP_SECRET.BIN!",166,125]
  82. Wait 100
  83. If Exist("SYS:C/TOP_SECRET.BIN")=0
  84.    CENTER_TEXT["TOP_SECRET.BIN NOT INSTALLED!",166,125]
  85.    Wait 150
  86.    CENTER_TEXT["INSTALLING TOP_SECRET.BIN!",166,125]
  87.    _COPY_FILE["NANO:NANO_DATA/TOP_SECRET.BIN","SYS:C"]
  88. Else 
  89.    CENTER_TEXT["TOP_SECRET.BIN ALREADY INSTALLED!",166,125]
  90.    Wait 150
  91. End If 
  92. '' 
  93. '
  94. '
  95. CENTER_TEXT["INSTALLATION FINISHED!",166,125]
  96. Wait 300
  97. '
  98. End 
  99. '
  100. Procedure _EXEC[C$]
  101.    A$="NIL:"+Chr$(0)
  102.    Dreg(1)=Varptr(A$) : Dreg(2)=1004
  103.    HAND=Doscall(-30)
  104.    If HAND
  105.       C$=C$+Chr$(0)
  106.       Dreg(1)=Varptr(C$) : Dreg(2)=HAND : Dreg(3)=HAND
  107.       F=Doscall(-222)
  108.       Dreg(1)=HAND
  109.       A=Doscall(-36)
  110.    End If 
  111. End Proc[F]
  112. Procedure _COPY_FILE[SOURCE$,DEST$]
  113.    _EXEC["copy "+SOURCE$+" to "+DEST$]
  114. End Proc
  115. Procedure CENTER_TEXT[CTEX$,X,Y]
  116.    Cls 0,0,50 To 320,256
  117.    LE=Text Length(CTEX$)/2
  118.    Text X-LE,Y,CTEX$
  119. End Proc